home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / comm / comstack.sit / Commstack_2.6.bin / Commstack 2.6 / card_13472.txt < prev    next >
Encoding:
Text File  |  1989-12-21  |  3.4 KB  |  171 lines
  1. -- card: 13472 from stack: in.6
  2. -- bmap block id: 13798
  3. -- flags: 0000
  4. -- background id: 7853
  5. -- name: mailsendx
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2007
  11. -- rect: left=0 top=90 right=342 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Field 1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=283 top=15 right=33 bottom=512
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: LineCount
  34.  
  35.  
  36. -- part 9 (button)
  37. -- low flags: 00
  38. -- high flags: A003
  39. -- rect: left=297 top=323 right=342 bottom=363
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: PANIC
  48. ----- HyperTalk script -----
  49. on mouseup
  50.   PANIC
  51. end mouseup
  52.  
  53.  
  54.  
  55. -- part 10 (button)
  56. -- low flags: 00
  57. -- high flags: A004
  58. -- rect: left=349 top=39 right=61 bottom=468
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Lèhetè
  67. ----- HyperTalk script -----
  68. on mouseup
  69.   openascii
  70.   get word 1 of card field "Node Type" of card "Config"
  71.   put it into nodetype
  72.  
  73.   SendField1
  74.  
  75.   if nodetype = "unix" then
  76.     writeascii numtochar(17)
  77.     writeascii "." & return
  78.     displayscreen "dis","% ","& "
  79.   else
  80.     writeascii numtoChar(26)
  81.     wait 100
  82.     writeascii numtoChar(26)
  83.     displayscreen "dis",return & "$ "
  84.   end if
  85.   go back
  86.   closeascii
  87. end mouseup
  88.  
  89.  
  90.  
  91. -- part 11 (button)
  92. -- low flags: 00
  93. -- high flags: A004
  94. -- rect: left=350 top=62 right=86 bottom=469
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Ei lèhetetèkèèn
  103. ----- HyperTalk script -----
  104. on mouseup
  105.   openascii
  106.   get word 1 of card field "Node Type" of card "Config"
  107.   if it is "unix" then
  108.     writeascii numtochar(3)
  109.     writeascii numtochar(3)
  110.   else
  111.     writeascii numtochar(3)
  112.     writeascii numtochar(26)
  113.   end if
  114.   displayscreen
  115.   go  back
  116.   closeascii
  117. end mouseup
  118.  
  119.  
  120.  
  121. -- part 15 (button)
  122. -- low flags: 00
  123. -- high flags: A004
  124. -- rect: left=3 top=52 right=72 bottom=157
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Lisèè ">" rivin eteen
  133. ----- HyperTalk script -----
  134. on mouseup
  135.   put number of lines of card field 1 into count
  136.   repeat with i=1 to count
  137.     put "> " before char 1 of line i of card field 1
  138.   end repeat
  139. end mouseup
  140.  
  141.  
  142.  
  143. -- part 16 (button)
  144. -- low flags: 00
  145. -- high flags: A004
  146. -- rect: left=159 top=52 right=73 bottom=307
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Muuta sulut àÇü:ksi
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   set cursor to watch
  158.   set cursor to watch
  159.   replace "{","├ñ"
  160.   replace "}","├Ñ"
  161.   replace "|","├╢"
  162.   replace "\","├û"
  163.   replace "[","├ä"
  164.   replace "]","├à"
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part contents for card part 2
  170. ----- text -----
  171. Lines 14